home *** CD-ROM | disk | FTP | other *** search
/ USGS: Oil & Gas Fields of Asia Pacific / USGS Maps Showing Geology, Oil & Gas Fields of Asia Pacific.iso / pc / ASPAC / VIEWS03 / SCRIPTS / PROVINCE.AVE < prev    next >
Text File  |  1999-01-17  |  436b  |  18 lines
  1. ' province.ave
  2. ' Displays Geologic Map of East Asia
  3. ' Douglas Steinshouer  11/16/1998
  4. ' GeoLukas for USGS GEO CERT World Energy Project
  5. ' Thomas Ahlbrandt - Project Chief
  6.  
  7. region3 = av.GetProject
  8. theView = region3.FindDoc("Region 3 Geologic Provinces")
  9. mapzoom = Rect.MakeXY(-1160000,-8355000, 14900000,4300000)
  10. theView.GetDisplay.ZoomToRect(mapzoom)
  11. reg3DocWin = theView.GetWin
  12. reg3DocWin.Open
  13. reg3DocWin.Maximize
  14.  
  15.  
  16.  
  17.  
  18.